home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
SHARED.DIR
/
01974_Script_ScrollText
< prev
next >
Wrap
Text File
|
1995-09-13
|
1KB
|
43 lines
on ScrollTextUp whichsprite, TopLocV, TextSprite, TransboxSprite
set gTextHeight = the bottom of sprite TextSprite
set gTextWindowHeight = the bottom of sprite TransboxSprite
if rollover(whichsprite) then
HandCursor
puppetsprite TextSprite, true
repeat while (the mousedown) and rollover(whichsprite)
if the bottom of sprite TextSprite >= gTextWindowHeight then
Set the LocV of sprite TextSprite = the locV of sprite textsprite - 2
updatestage
end if
end repeat
end if
end
on ScrollTextDown whichsprite, TopLocV, TextSprite, TransboxSprite
set gTextHeight = the top of sprite TextSprite
set gTextWindowHeight = the top of sprite TransboxSprite
if rollover(whichsprite) then
HandCursor
puppetsprite TextSprite, true
repeat while (the mousedown) and rollover(whichsprite)
if the top of sprite TextSprite < gTextWindowHeight then
Set the LocV of sprite TextSprite = the locV of sprite textsprite + 2
updatestage
end if
end repeat
end if
end
on ResetScrollText TopLocV, TextSprite
set the LocV of sprite TextSprite = TopLocV
updatestage
puppetsprite TextSprite, false
end
on ResetScrollText2
set the LocV of sprite 2 = 89
updatestage
puppetsprite 2, false
end